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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE yee AND sor ee 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH aint a AND WITH THE 
INCLUSION OF THE ABOVE get hoa NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
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fACILETY: FORTRAN SUPPORT LIBRARY 
"ABSTRACT: 


Call system service $ASCTIM to return system time to user 
area. 


VERSION: 0 
HISTORY: 
AUTHOR 


Jonathan M. Taylor, 18-Aug-77: Version 0 
MODIFIED BY: 
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0 ; ; 
4 ; Edit History for Version 0 of FORSTIME : 

0000 38 : ; 
000 56 ; 0-3 = Remopve FORSFLAG_ JACKET. TNH sb ea ‘ 

0000 57 ; 0-4 = remove MTH$$JACKET_HND references. TNH 26-July-78 ‘ 

0000 58 ; 1-001 - Update version number and copyright notice. JBS 16-NOV-78 ; 

0000 59 ; 1-002 = Add ' ; 


"to the PSECT directive. JBS 22-DEC-78 
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1-002 - return system as an 8 byte st 6=-SEP-1984 11:00:3 FORRTL.SRCJFORTIME.MAR; 1 (4) | 


§ -SBTTL FORSTIME = return system as an 8 byte string 


+4 
FUNCTIONAL DESCRIPTION: 
: Returns system time as an 8 byte string in the form 
HH:MM:SS. Build a string descriptor on the stack that eytnte 
2 the peers area. Call system service SASCTIM to do all 
e work. 


CALLING SEQUENCE: 
CALL FORSTIME (8_byte_array.wb.ra) 


COOCCoCCO 35 


MMM — —CDOOSCOSOSCOCOOCOCSCOOCOOCOCOCOOOOOOCOOCOOOOOOOCOOOOCOSOCO Maz 
baw ene a Dm) — Dol ee) en ae law law lao lala la lolelololeleleloleleleleolelelolelelelalolololololo) 


INPUT PARAMETERS: 
8_byte_array the addr of 8 bytes into which the 
string is to be placed 


; IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
; NONE 


; IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 


-ENTRY FORSTIME, “M<> 
MOVL 4(AP), =(SP) 
MOVL #*X10E0008, -(SP) 


7E 04 AC DO 

7E 010€0008 8F 00 en= 
50 5E 00 MOVL SP, R 

SASCTIN_S (RO), #1 


; build a string descriptor 
: len=8 : ‘ 
; RO -> string descriptor | 
3 get time info only 


04 ; return to user 
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- END 
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Symbol table 6-SEP“19 :3 FORRTL.SRCJFORTIME.MAR; 1 (4) 
FORST IME 00000000 RG 4 
SYSSASCTIM eeeereee G 0 

women erm mm sen nee a 

: 1 Psect synopsis H 
PSECT name Allocation PSECT No. Attributes 

ABS 90000000 ( g.) 90 ( 0.) NOPIC USR CON ABS LCL _NOSHR NOEXE NORD NOWRT NOVEC BYTE 
“FORSCODE 00000020 (« 3 1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG | 
cecdsecessinennwesnesonnd 
H \ Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 
Initialization 31 0800200 08 00:00:00 .38 
Command processing 120 00:00: 8-38 00:00:02.9 
Pass 1 97 00:00:00.5 00:00:02.49 
Syabol table sort 8 i S84 es Be Bt 
Pass 2 3 00:00:00.3 00:00:01. 
Symbol table output 2 00:00:00.01 00:00:00.01 
Psect synopsis output 2 00:00:00.01 00:00:00.01 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 292 00:00:01.44 00:00:07.74 


The working set Limit was 900 pages. 

1591 bytes (4 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table space allocated to hold 2 non-local and 0 Local symbols. 
131 source Lines were read in Pass 1, producing 11 object records in Pass 2. 

2 pages of virtual memory were used to define 2 macros. 


weeweeewooees “cesses eee eeecn} 


Macro Library name Macros defined 
“S255$DUAZB:(SYSLIBJSTARLET.MLB;2 SSS 
15 GETS were required to define 2 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:FORTIME/OBJ=OBJ$:FORTIME MSRC$:FORTIME/UPDATE=(ENHS:FORT IME) 
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